home *** CD-ROM | disk | FTP | other *** search
/ Aminet 5 / Aminet 5 - March 1995.iso / Aminet / dev / e / EDBG_from_CED.lha / Edebug.rexx < prev   
OS/2 REXX Batch file  |  1980-07-16  |  798b  |  41 lines
  1. /* Ecompile.rexx: run E compiler from ced.
  2.    thanks to Rick Younie for improvements. */
  3.  
  4. epath = 'run:'                    /* homedir of EC */
  5.  
  6. OPTIONS RESULTS
  7. ADDRESS COMMAND
  8.  
  9. ADDRESS 'rexx_ced'
  10.  
  11. 'wbtofront'
  12.  
  13. 'status 19'                    /* ask ced filename */
  14. file = result
  15.  
  16. 'status 20'                    /* ask ced filepath */
  17. path = result
  18.  
  19. 'status 18'
  20. IF result ~= 0 THEN DO                /* save if changed */
  21.   'save' file
  22.   SAY 'saving changes..'
  23. END
  24. ELSE SAY 'no changes..'
  25.  
  26. PARSE VAR file comparg '.e'            /* strip the extension */
  27. SAY 'invoking E compiler with file' comparg'.e'
  28.  
  29. ADDRESS
  30. OPTIONS FAILAT 1000000
  31. 'run:ec ' comparg ' DEBUG WB ERRBYTE'            /* run compiler */
  32. ebyte = rc
  33. SAY 'error at 'rc
  34.  
  35. 'execute e:rexx/cd_and_run_EDBG' path comparg
  36.  
  37. ADDRESS
  38. 'cedtofront'
  39. IF ebyte>0 THEN 'jump to byte' ebyte        /* jump to spot of error */
  40. exit 0
  41.